000000000 GGGGGGGGGGGG IIIIIIII1 NNN NNN 
LLL 000000000 GGGGGGGGGGGG III NNN NNN 
LLL 000000000 GGGGGGGGGGGG IIIT NNN NNN 
LLL 000 000 GGG II] NNN NNN 
LLL 000 000 GGG IIl NNN NNN 
LLL 000 GGG Il NNN NNN 
LLL 000 000 GGG Ill NNNNNN NNN 
LLL 000 000 GGG II] NNN NN 
LLL 000 000 GGG Ii] NNNNNN NNN 
LLL 000 000 GGG II] NN NNN NNN 
LLL 000 000 GGG II] NNN NNN NNN 
LLL 000 000 GGG III N 
LLL 000 000 GGG 66G6G6GGGG6G II] NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII1 NNN NNN 
LLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIT NNN NNN 


QaA7MAMMMMAMMMMMMMMMMMMIOOCVO 1H 


+e LLE**1D**HPWD 


HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HHHHHHHHHH 
HHHHHHHHHH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLLLLLLLLL 
LLLLLLLLLL 


PPPPPPPP 
PPPPPPPP 


PP 
PPPPPPPP 
PPPPPPPP 


= 
Ecessssssss 


ffcecececececee 
- 
: 


nunwnn 
nnn 


DDDDDDDD 
DDDDDDDD 


DDDDDDDD 
DDDDDDDD 


= hash user password 


Tabt 


e of contents 

9 4 DECLARATIONS 

(3) 9 Dispatch = select encryption s\gorithe 
(4) 21 Purdy = evaluate Purdy polynomial 


16-SEP-1984 02:05:23 VAX/VMS Macro V04-00 


Page 


0 


M 16 
HPWD - hash user password 16-SEP-1984 :05: ‘AX/VMS M 4- 
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sh user password 


co 
DI 
AL 


TH 


GHT (c) 1978, 1980 
at ay eGORPORATION, MAYNARD. MASSACHUSETTS. 


GHTS. RE RES 

ee I$ praia UNDER A LICENSE AND MAY BE USED AND COPIED 
I 

Pp 


YR 1982, 1984 B 
: 


ACCORDANCE WITH THE rene OF SUCH Tht a AND WITH THE 
OF THE ABOVE hth OTICE. THIS soF TWARE OR ANY OTHER 


xzxvoOre FroU 


® ® 
® ® 
® ® 
a ’ 
e * 
® ® 
® & 
‘ USION * 
° ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
. TRANSFERRED. : 

® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

® 
* ® 
* t 
® & 
® ® 
* ® 
a ® 
*® * 


AN H NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OOOOCCOOOOCSOOOOCOOOCOOOOOOOOo 
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SOQGOCOOCOOCOCOOCO OOOO SCOSCOCOOOOSOOOOOOOO SOO 


(ARRAS ARASAAAAARAAALAAAALASALAE SADA RAA ESAS SEER ERR R RRR EEE EER RRR REESE EERE ES 


“FACILITY: ser Verification Subroutine 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: H. M. Levy » CREATION DATE: 20-Sep-1977 

MODIFIED BY: 

v03-002 $HZ0002 Stephen H. Zalewski, 02-Mar-1984 

I pate Length passuere is passed in, return a null password. 
If PURGY_V algorithm used, add check to prevent us from searching 
Bae length of username “buffer. 


v03-001 $HZ0001 oph en H. Zalewski 14-Feb-1984 
Add support for BUR Y and PURDY_V encryption. 


NAUE WO OONAM ES WIN (OOO NAUE WIN OC OONOA UE WN (OOOO SE Win 
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HPwD - hash use 
v04-000 DECLARATIO 

ae 

3H 

0000 § 

Boo a 

000 55 

0000 56 

0000 57 

0000 58 

0000 59 

8008 60 

000 61 

0000 ¢ 

0000 6 

0000 64 

0000 65 

00000004 0000 66 

00000008 0000 67 

0000000C 0000 68 

00000010 0000 69 

00000014 0000 70 

0000 71 

0000 72 

0000 73 

0000 74 

0000 75 

00000000 76 

0000 77 

0000 78 

0000 79 

0000 80 

0000 81 

0000 82 

26D930AC 3B6E20C8 10B71064 00000000 0000 83 

5005713C 4DB26158 686B51F4 76DC4190 0010 84 

CB61B38C D6D6A3E8 FOOF9344 £DB88320 4544 85 

BDBDF21C AOOAE278 86D3D2D4 9B64C2B0 0030 86 

0040 87 

0040 ss 

0040 9 

0040 90 

0040 91 

FFFFFFFF FFFFFFAD 0040 5 

FFFFFFFF FFFFFF4D 0048 9 

FFFFFFFE FRFFFEFF 0050 94 

FFFFFFFF FFFFFEBD 0058 95 

FFFFFFFF FFFFFE9S 0060 96 


r password 
NS 


B 1 
"Br eeer Tbe 09:58:87 LEBGIN seesnowy Maget 


~-SBTTL DECLARATIONS 


+ MACROS: 
«macro pushq Src 
movg Srco,-(sp) 
.endm 
«macro popq Ds 


t 
mova (sp)+,Dst 
-endm 


: EQUATED SYMBOLS: 


OUTDSC = 4 : adr of encrypted output descriptor 
Pw = OUT + 4 ; adr of password descriptor 

ENCRYPT = PWDDSC + 4 3 encryption algorithm index (byte) 
SALT = ENCRYPT + 4 ; random number (word) 

USRDSC = SALT + 4 ; adr of username descriptor 


: OWN STORAGE: 


-psect _LIBSCODE RD,NOWRT ,PIC,SHR,BYTE ,EXE 


; AUTODIN-II polynomial table used by CRC algorithm 


AUTODIN: 


- LONG Meee litte TTT TL EST PRN STE ere Tas OM Ete they 
LONG  *016667040620,*015332650764 ,*011554460530,*°012001270474 
LONG § *035556101440,*036005711504 ,*032665521750, 031330331614 
LONG *023331141260,*020664751324 ,*024002561170,*027557371034 


; The egy table of coefficients is used by the Purdy polynomiai 
; algorithm, hey are prime, but the algorithm does not require this. 


Cs -long 83 -1 - 
wtong -179, —=1 : Ce 
. long =93! -1 < 
-long -323, °=1 ; 4 
long -363, <1 : £5 
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<-_ 
oz 


ope -SBTTL Dispatch = select encryption algorithm 
006 ++ 
006 
BRe FUNCTIONAL DESCRIPTION: 
B38 Smash up the password into a non-reversable number. 
Ope CALLINGS SEQUENCE: 

CALLS/CALLG 

INPUTS: 


PWODSC = Address of password descriptor 
ENCRYPT = Encryption algorithm index (byte) 
SALT = random number (word) 
YSRDOSC = Address of username descriptor 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
OUTDSC = Address of output buffer descriptor 


IMPLICIT OUTPUTS: 


‘G0 Cd Cd Cd Cd OD Cd CD CD C0 CD CD Cd OD CO CD C0. G9 0D. CD CD C0 CO CD COON OD OD CD 


peje lo lelololelolololololololololoalo) 
pe wel ole o lel ole olololololololololo) 
PRAEAAAAAAAAA ASA AA AO AO 


Bete Se Ge Ge Se Ge Ge Fe Se Be Oe Be Be Ge Be Be Se Oe Be Se Ss Se Se Se Se Se Se Ge Be Se Be Se Se Se Se Se 


eee ee ee ee eS Ss 

PVP Be BS BS BS BEB EE ANA N NIAAA NIIP PNP NININONINY 2 PS OS SS SS OOOOOOCOOCOCOONO 
PWN HO OO NOAUE WN (OOD NAW WN $$ OS ODNAU EWN CO OONAU LS WN" OVOONAUS WOOO 
Be Be ee Be Oe Oe BeBe Be Oe Bee SHS Be Se Se Be Se Oe BH Se Se OHS Se Oe Be Oe Oe Oe Os Be Se Be Oe OF Oe Se BH Se Oe OHS Be OHS Oe Oe Oe HHO BH Oe Oe Be oe 


0068 none 
0068 
0068 ROUTINE VALUE: 
0068 
0068 Success status 
0068 | 
0068 SIDE EFFECTS: 
ogee 
0068 none 
0068 -- 
0068 
007C Ope e entry LGISHPWD,*M<r2,r3,r4,r5,r6> 3: entry mask | 
| OC AC 95 OQ06A tstb ENCRYPT (ap) ; using CRC algorithm? 
3E 613 0060 beql 208 3: yes. no processing of user desc necessay. | 
5E 14 (C2 QO06F subl2 #20,sp ; Get temp desc and buffer off stack 
o 3 Boce mov | SP r6 ; Put address into r 
66 14 8C 7D 007 mova a SRDSC (ap) . (16) ; Put current user desc into stack desc. 
OC AC 2) 7 boop ad f ENCRYPT (ap) ; Which PURDY algorithm? 
ne 
| 08 AG «600C:60CU20)=C04 B66 OL tha novel (r6),84(r6) ,#32,412,8(r6) ; PURDY. 12 character blank pad username | 
66 OC B80 0087 mov #12,(r6) ; size of desc is now 12 | 
04 A6 08 A6 YE 008A movab 8(r6),4(r6) ; Point desc to buffer on stack. 
oe Say poet brb 208 ; goto main Line 
0091 ; PURDY_V. Remove padding from username. 
| 55 66 3C 0091 10$: movzwl (r6),r5 ; Save Tength of username in r5. 
66 B4& 0094 clrw (r6) 


50 


0484 08 OO 64 


0481 61 50 FF24 
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53 
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Dispatch = select encryption algorithm 
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r4 
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1 
3 
1 


55 
$ 
59 
60 
e] 
i 
64 
o2 
$ 
68 
69 
70 
4 
i 
74 
75 
76 
77 
78 
79 
80 
8) 
5 
84 
85 
86 
87 
88 
89 
90 
+4 
5 
94 
95 
96 
97 
98 
99 
00 
4 
i 
04 
05 
06 
07 
08 
9 
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; of the input s 


SEP=1984 


4(r6),¢r 
)+,#32 


~~" 
- 
4 
o 
~ 


- os 
oe) 
o 
a 


DSClap),r4 


+ FCOLL HH MO HO 


D 

) 

penne ore 

(r4) ,#0,48,04(r4) 


@OUTDSC(ap),r4 
a4(r4),r4 

ENCRYPT (ap) 

30$ 

#1,°r0 

tt te he 

~ eats (ri) ,a4(r1) 


“ 
r0,(r4) 
40$ 


(r4) 
@PWDDSC(ap).r3 
COLLAPSE_R2 
SALT(ap),3(r4) 


r6,r 
COLLAPSE_R2 
(r4) 
#1,Purdy 


#1,r0 


a ise & Rg: 


ee . 


03:48 AX/VMS Macro V04-00 Page 4 
45: 


LOGIN. SRCJHPWD.MAR; 1 (3). 


Get address of username buffer into RO. 
Search until we find first blank. 


; Increment byte count until blank found 


or_31 characters have been encountered 
1 igs max username Length). 
or entire buffer has been parsed. 
(someone not playing by the rules) 


; If password is zero length 


; Then return null password 
; (quadword of zeros) 


; Get pointer to output buffer 


; Use the CRC algorithm if the index 
; is zero 

; initial CRC 

; get descriptor address | 

; Convert password to 32-bit number 
; high order Longword will be zero 

; copy result to the output buffer 


; Initialize output buffer 
; Cellapse password to a quadword 


; Add random salt into middle of U 
; Collapse username into the quadword 


; Push pointer to U ; 
; Run U through the polynomial mod P 


; This routine takes a string of bytes (the descriptor for which is pointed 
se Oy 5) and collapses them into a quadword (pointed to by r4). t does 
this by cyclin 


3 around the bytes of the output buffer adding in the bytes 
r 


ing. 
{r3) 0 ; Obtain the number of input bytes 
a4(r3),r2 ; Obtain pointer to input strin 


#-8,r0,r1 
(r25+, (r4)Er1) 
r0,10 


. 3 
: Obtain cyclic index into output buffer 
$ ; Loop until input string is exhausted 


<- 
oz 
_——— 
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1} 18 ~sbttl Purdy = evaluate Purdy polynomial ; 

00000038 Bf 13 a=59 ; 2°64 = 59 is the biggest quadword prime : 
OOFFFFFD O11F i n0=1824 - 3 ; These exponents are prime, but this is : 
OOFFFFC1 Rit a ni=1a d - 63 ; not required by the algorithm. : 
003¢ gti iF sentry Purdy,“*M<r2,r3,r4,r5> : 

0121 13 This routine o.. the. fu f(U) = oy? mod P. Where P is a prime of the form : 

0121 ¢ 3; P = 2°64 = fun tion, a8) th agttowing polynomial: : 

0121 3 X4n0 + X“n 101 4 X*3eC + x«C4Q + C5 : 

851 : ; The input U is an vaetend scodeard “ : 

0121 206 ; 

0121 e7 puphe a4 ( p? ; Push U F 

0093 30 0125 228 sbw PQMOD_RO ; Ensure U less than P : 
6 7E 0128 4 movaq (sp),r4 ; Maintain a pointer to X : 
55 FF11 CF 7E 012B 230 movaq C,fr ; Point to the table of coefficients | ; 
0130 231 pushq (r4) : 

OOFFFFC1 BF DD 0133 232 ushl = #n1 | ; 
40 10 0139 233 sbb PQEXP_R3 3 X4n1 3 
013B 234 pushq (r4) 3 

3C)6=6DD SC13E = 235 ushl #n0-n1 | ; 
39 10 0140 236 sbb PQEXP_R3 3 
0142 237 ov ay (r5) 3 C1 3 

0105 30 0145 238 sbw PQADD_RO 3: X*(n0 - nl) + C1 é 
OO8E 30 0148 239 bsbw PQMUL_R2 3 X*n0 + X*n1*C1 ; 
0148 240 pushq (r5)+ 5 C2 ; 

O14E 241 ey, (r4) : 

0085 30 0151 242 sbw PQMUL_R2 : X*C2 | : 
0154 243 pusha (r5)+ : ¢3 5 

OOF3 30 0157 244 sbw PQADD_RO 3 X*C2 + C3 : 
O15A 245 pusne (r4) : 

7A 10 Q15D 246 sbb PQMUL_R2 3 K*2eC2 + X*#C3 3 
O15SF 247 pusne (r5) : : 

O0E8 30 Bide 248 sbw PQADD_RO 3 K*2eC2 + X#C3 + C4 3 
165 249 pusse (r4) ; 

6F 10 0168 250 sbb PQMUL_R2 3 X*3*C2 + X*2"C3 + C4*X : 
016A 251 pushe (r5) 2 ¢5 3 

O0DD 30 016D $26 sbw PQADD_RO 3 X*3"C2 + X*2eC3 + C4eX + C5 3 
QODA 30 HEA 25 bsbw PQADD_RO ; Add in the high order terms ; 
017 254 popq a4(a ; Deplace U with f(x) 3 

50 01 400 pier 55 movl “ir 3 
04 OQ17A 56 ret 3 

0178 57 | : 

0178 58 3 

0178 59 PQEXP at : 

0178 60 .enabT 3 

0178 61; a B. the inputs with U*n mod P where P is of the form P = 2°64 - a. 3 

g128 6¢ ; U is a quadword, n is an unsigned longword. : 

08 BA 0178 64 popr #*M<r3> : Record return address 3 
p178 65 pushq #1 : pnrtvatiae - 

180 26 pushq 8+4(sp) : fopy 4 to top of stack for speed ; 

10 ag DS 0184 26 tstl 8+8(sp) : handle n greater than 0 3 
2 13° 0187 68 beqlu 30$ ; 


rr 
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15 10 AE E9 0189 $9 108: blbc 8+8(sp) ,20$ . 
18D 0 pushq sp) 3 Looy the current power of U : 
190 71 pusne 8+8(sp) Multiply with current value ; 
ie Hee BA cet wee Aas <7 anhalt : 
re) s ; Replace current value : 
00 10AE 1F Q1 Fe 19A 74 ek #1 #31 ,8+8(sp) #0 : : 
a OIAg Fogg,  beglu 708, Proceed to next fu 
: us s ; Proceed to next power o ; 
32 10 o1as 599 Bsbb Pam, Re : 
10 AE 10 AE 1F O1 EF OQ1A7 78 extzv #1,#3T,8+8(sp) ,8+8(sp) : 
D9 #11 O1AE 279 brb 10$ ; 
14 AE O8 AE 7D 8189 0 30$: movq 6< 5p) 8+8+4(sp) ; Copy the return value ; 
SE 144A 3 18 1 movaq +8+4(sp),sp ; Discard the exponent : 
6 17 0189 8 ine (r3) 3; return ; 
0188 83 .dsabl LS : 
0188 Spe : 
00000000 0188 85 u=0 ; Low longword of U ; 
00000004 01BB $89 veut4 ; High Longword of U : 
00000008 0188 87 y=u+8 ; Low longword of Y 3 
QOOOO0000C 01BB 288 2=y+4 ; High Longword of Y : 
01BB 289 3 
01BB 290 PQMOD_RO: | ; 
018B 291 .enabt LSB $ F 
0188 $36 ; Replaces the quadword U on the stack with U mod P where P is of the 3 
01BB 293 ; form P = 2°64 = a. : 
O1BB 38294 3 
01 BA O1BB 295 popr #*M<r0> ; Record return address ; 
FFFFFFFF 8F 04 AE D1 O1BD 296 cmpl v(sp) ,#-1 ; Replace U with U mod P 5 
o ww? 8103 27 blssu._- 108 ; 
FFFFFFCS 8F 6€ D1 Q1C7 298 cmpl u(sp) ,#-a : 
07 #1F OICE 444 blssu-_ 10$ 3 
6— 38 CO 0100 0 addl2  #a,u(sp) 
04 AE O00 D8 0103 301 adwe #0,v(sp) 
60 17 0107 302 10$: imp (r6) ; return 
0109 303 .dsabl LS 
01D9 304 
0109 305 
01D9 306 POQMUL_R2: 
01D9 307 ; Computes the product U*tY mod P where P is of the form P = 2°64 = a. 
Bibs $05 ; U, Y are quadwords less than P. The product replaces U and Y on the stack. 
01D9 10 ; The proeuct may be formed as the sum of four longword multiplications 
0109 11 ; which are scaled by powers of 2°32 by evaluating: 
3108 \¢ 3 2*64eyez + ¢ sestuty + utz) + uty 3 
He 4 1? ; The result is computed such that division by the modulus P is avoided. 
02 BA 0Q1D9 15 popr #*M<ri> ; Record return address | 
52. 5E 00 01DB 16 mov sp.re ; Record initial stack value 
OC A2 DD ODE 17 pusht 2(r2) 
O04 A DD Q1E1 18 ushl v(r2) 
3 10 O1E4 19 sbb EMUL 
D 10 O1E6 20 bsbb PQMOD_RO : 
5 10 BIER 1 bsbb PQLSH_RO ; Obtain 2*32eyez 
08 A DD QIEA ¢ pushl y(r2) 
04 A DD O1ED ushl vi(r2) 
26 + giFe 4 sbb EMULQ 
7 1F2 5 bsbb PQMOD_RO 


p--- heoenenemnecmgntnanetistetinaios — Te 
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OC A DD O1F4 ushl 2(r2) ; 
65 DD 1F7 $ cushi zing} . 
1D 18 1F9 8 sbb EMULQ : 
BE 1 1FB 9 bsbb PQMOD_RO . 
4E 10 O1FD 0 bsbb PQADD_RO 3; Obtain (vty + uz) : 
4C 10 Bahr 1 bsbb PQADD_RO 3 Add in 2*32ey*z ; 
39 = 10 01 ¢ bsbb PQLSH_RO ; Obtain the first two terms : 
08 ag DD 8 03 pushl ying) ; 
6 DD $8 4 ushl urd) ; 
OE 10 020 5 sbb EMULQ : | : 
AF 10 OQ20A 6 bsbb PQMOD_RO ; Obtain the third term: uty : 
| 3F 10 8 0c 7 bsbb PQADD_RO 3; Add it in ’ 
of 8 popg Y(r2) 3; Copy the return value ; 
| 5E 08 A2 3 021 39 movaq Y(r2),sp ; Point the stack to the return value : 
61 17 0216 40 jmp (rl ; return ; 
o¢18 41 3 
0218 ry ; 
| 0218 34 EMULQ: ; 
0218 44 .enabl LSB. ; 
0218 345 ; This routine knows how to multiply two oh ee Longwords, replacing them 3 
8513 $08 ; with the unsigned quadword product on the stack. : 
7E 00 O8 AE 04 AE 7A 0218 348 emul = 4(sp),8(sp),#0,-<sp) : 
7E O04 Q21F 349 clrl -(sp) F 
10 AE 05 0221 350 tstl 4+8+4(sp) ; Check both Longwords to see if we must ; 
04 18 0224 351 bgeq 10$ ; compensate for the unsigned bias. F 
6— 14 AE CO 0226 326 addl =: 4+#8 +8 (sp) , (sp) : 
14 AE D5 QO22A 353 10$: tstl 4+8+8(sp) | 3 
04 18 O22d 354 bgeq 20$ 3 
6— 10 AE CO O22F 355 addl 4+8+4(sp), (sp) I 
04 AE BE CO 0233 356 20$: addl (sp)+,4(sp) ; Add in the compensation. , | F 
0237 357 popa 4(sp) ; Replace the Longwords with their product. 3 
05 0238 358 rs : 
Osec 359 .dsabl LSB 3 
023C 360 : 
023C 361 : 
023C 396 PQLSH_RO: 3 
023C 7 -enabl LSB 2 F 
Bsc 64 ; Computes the product 2*32*U mod P where P is of the form P = 2°64 = a. é 
bSe¢ 302 ; U is a quadword less than P. The product replaces U on the stack. : 
023C 367 ; This routine is used by PQMUL in the formation of quadword products in : 
023C 68 ; such a way as to avoid division by the modulus P. 3 
| 8 HS 69 ; The product 2*64ty + 2*°32*u is congruent atv + 2*32*u mod P (where u, v ; 
| 8 : 4 ; are longwords). 3 
01 BA ate i popr #*M<r0> ; Record return address : 
04 AE DD O23E 37 pushl v(sp) 3 
3 DD 0241 74 ushl a ; 
D 10 43 75 sbb EMULQ ; Push aty : 
08 AE OB AE 20 79 45 76 ashq #32,Y(sp),¥(sp) ; Form Y = 2*32*u 3 
| ae 48 77 brb 10$ ; Return the sum U + Y mod P. 3 
024D 78 : 
4D 379 POADD_RO: : 
4D 0 ; Computes the sum U + Y mod P where P is of the form P = 2°64 - a. 3 
8 rt } ; U, Y are quadwords less than P. The sum replaces U and Y on the stack. 3 
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2 BA 4D 3 popr #*M<r0> ; Record return address 
08 AE ey = 4F 4 10$: addl2.- u(sp),y(sp) ; Add the low Longwords 
OC AE O04 AE D ; 5 adwe (sp),z(sp) ; Add the high Longwords with the carry 
14 ~«#OIF § bcs 0$ ; If the result is greater than a quadword 
FFFFFFFF 8F OC A D1 A cmpl gigp) a1 
1F 62 3 blssu 0$ 
FFFFFFCS 8F 08 Af D1 64 cmpl xi gp) Ana ; or simply greater than or equal to P 
1F 6C blss 0$ 
08 AE B CO $f 91 208: addl #a,y(sp) ; we must subtract P. 
OC AE QO 08 7 adwe #0,z(sp) 
5E 08 AE 3 0276 93 30S: movaq ¥(3p) .8p ; Point the stack to the return value 
17 O27A 94 ine (r0 3; return 
027C 95 .dsabl LS 
027C 9 
027C 97 .END 


nan 


I 1 
| HPWD - hash user password 16-SEP-1984 02:05: AX/VMS Macro V04-00 Page 9 | 
Syst table =-SEP=1984 be: 03:43 LOGIN: SRe HPWD.MAR; 1 . (4) | 
= 00000038 : 
AUTODIN BR OR BRE R 1 s 
0000040 R 1 $ 
COLLAPSE _R2 BR 8R 3 OR R 1 : 
EMULQ ste Rg 1 3 
ENCRYPT = 00000 oF ; 
LGISHPWD 00000068 RG 01 3 
nO = OOFFFFFD $ 
NI = OOFFFFC1 | : 
OUTDSC = 00000004 3 
PQADD_R 00000240 R 01 | 3 
PQEXP_ ate BE R 8} 3 
PQLSH~RO 000023C R 1 ; 
PQMOD_RO 000001BB R 01 3 
PQMUL _R2 00000109 R 01 3 
PURDY 0000011F RG 01 5 
PwODSC = 00000008 3 
SALT = 00000010 : 
U = 00000000 3 
USRDSC = 0000001 3 
Vv = 00000004 3 
. = 00000008 3 
z = 0000000C | : 
fpwmoaen stow eee saan ee + i 4 
: Psect synopsis ! | ; 
: 
PSECT name Allocation PSECT No. Attributes . 
. =, ‘ 00000000 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE PY 
_L IBSCODE 0000027C (¢ 636.) O1¢ 1.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC BYTE 
| 
$eooeeceececosoocesoecccn + j 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time | 
remem —s—S—s—ssSsisi‘CSCO**CC lite ee ee ee ee ee es en a ae a lie ee ee ee as a a a ili ee ey ee ee ee ee en a ee ce | 
Initialization | 29 90:00: 00..08 00:00:00.33 
Command processing gH Bp: 8:08 -83 00:00:08.64 
: : ° : + ° } 
$ 5 i 0:53 80; tee 
ass :00:00. :00:02. 
Symbol iable output 5 $380: 02 09 :00:00:02 
Psect synopsis output 1 0:00: 8-3 0:00:00.0 
Cross-reference output 0 0:00:00.00 80898 8 
Assembler run totals 316 0:00:01.91 0:00:10.0 


The working set Limit was 1050 pages. : 

7793 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 23 non-local and 17 local symbols. 
7 source Lines were read in Pass 1, producing 16 object records in Pass 2. 


Pass 1 
syabol table sort 0 
2 pages of virtual memory were used to define 2 macros. 


:S 


ee 06:08:63 AX/VMS Macro v04-00 Page 10 | 


1 
= hash user password 3 
S LOGIN. SRCJHPWD.MAR; 1 


<=z 
> 


K-11 Macro Run Statistics 


Senden peeinamnsabecannein ‘ | 


weer eee cere se ee amen eece $ 


| 

Macro Library name Macros defined 

3 $25 58DUA28: 8: LOGIN. N-OBJ}LOGIN.ALB: 1 
“S58espUAgB: Ceysi 1BISTARLET. MLB;2 

TOTALS (all Libraries) 


0 GETS were required to define 0 macros. 


oo°o°o 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:HPWD/OBJ=OBJ$:HPWD MSRC$:HPWD/UPDATE=(ENH$:HPWD) +EXECML$/LIB+LIB$:LOGIN/LIB 
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